IDENTIFICATION 
Product Code: MAINDEC 08-D02B-D 

Product Name: PDP-8 Instruction Test Part 2B 

Date Created: January 12, 1968 

Maihtainer: Diagnostic Group 



1. ABSTRACT 

This program is a test of the 2s complement add (TAD) and rotate logic (RAL, RTL, RAR, RTR). 
Random numbers are used in the Twos Add portion of the test and sequential numbers are used in the Rotate 
portion. Program control depends on operator manipulation of four switches in the SWITCH REGISTER 
(bits 0, 1, 2, 3). Error information is normally printed out on the keyboard printer. 

2. REQUIREMENTS 

Storage 

Memory locations 20 -4177 . 
o 8 

Subprograms and/or S ubroutines 

High RIM Loader, High Binary Loader. 

Equipment 

PDP-8 Processor-Keyboard Reader 

3. USAGE 

3. 1 i.oading 

If the Binary Loader beginning at 7777 is in memory, load the Instruction Test - Part 2b. 

o 
Otherwise, the RIM Loader beginning at 7756^ and/or the Binary Loader must be loaded Into memory. 

PDP-8 Instruction Test - Part 2B (Maindec 801 -2B) may now be loaded as follows: 

Set 7777q in the SWITCH REGISTER. 

Press LOAD ADDRESS key. 

Place Instruction Test-Part 2B in the keyboard reader. 

Press START key on the operator console. 

Engage the keyboard reader. 



3.2 Switch Settings 

When starting at the TAD portion (2008) °f *^^ ^^^t, set switches and 2 to the 1 state. This 
switch configuration allows the program to print any error message and halt on the error condition. After 
the TAD portion has run for a minimum of 10 minutes, set switch 3 to a 1 to enter the Rotate Test. 

When starting at the rotate portion (20003) ^®^ switches and 2 to the 1 state as above. This 
switch configuration allows the program to print any error message and halt on the error condition. 

Switch Stop on error (4063 for TAD or 24338 for Rotate Test). 

Switch 1 Scope mode (repeat loop causing the error). 

Switch 2 Print error. 

Switch 3 Leave the Twos Add test and start the Rotate Test. 



N08 



Switch and 1 
Switch and 2 
Switch 1 and 2 



Scope mode and stop on error . 
Print error and halt. 
Scope and print error. 



3.3 Start- Up and/or Entry 

The starting address of the TAD portion of the test is 0200g. The starting address of the Rotate 
portion of the test is 20008- If bit 3 of the SWITCH REGISTER is set, it automatically causes an exit from 
the Twos Add portion of the test to the Rotate portion of the test. 

Set either 02008 in the SWITCH REGISTER to start at the Twos Add portion of the test, or set 
20008 '" ^^le SWITCH REGISTER to start at the Rotate portion of the test. 

Press the LOAD ADDRESS key. 

Press the START key. 



3.4 



Errors in Usage 

The error halt for TAD Test is 4068. 

The error halt for Rotate Test is 2433-. 

Error printouts from both tests would appear as follows: 

TWOS ADD ERROR PRINTOUT: 

Good Bad X ARG 

000000000001 00000000000 000000000000 

Indicating loss of a 1 bit in AC bit 11 . 



ROTATE ERROR PRINTOUTS: 

PATO 
RALO 
RARO 



000000000001 
00000000001 
000000000000 



Y ARG 
000000000001 



(original pattern) 
(pattern after RAL inst.) 
(pattern after RAR inst.) 



Indicating loss of a 1 bit in AC bit 1 1 as a result of an RAR. 



PATO 
RTR 
RTL 



000000100000 
000000000000 
000000000000 



indicating loss of a 1 bit in AC bit 8 as a result of on RTR. 



3.5 



Recovery from such Errors 

The program may be continued after it halts on an error, by pressing the CONTINUE key, 
The program continues to the next test, unless scope mode (bit 1) is requested. 

Set the state of AC switch 1 to 1 to repeat the loop causing the error (scope mode). 

Reference 4.3 for other switch variations. 



al 
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4. RESTRICTIONS 

This test should be run only after a successfui run of the Instruction Test 2A to provide maxi- 
mum reliability of the module repair table. 

5. DESCRIPTION 

5. 1 Discussion 

The PDP-8 Instruction Test-Part 2B tests the 2s ADD and ROTATE logic. 

The 2s ADD logic is tested by the addition of pseudo random numbers. Two pseudo random 
numbers are generated and 2s added by a logical (simulated) adder. The same two numbers are added 
by the 2s add logic (TAD). The results are compared, and if an equality exists, two new random num- 
bers are generated and the sequence is re-executed. If an inequality exists, the computer halts and/or 
types the error condition depending on the switch settings. 

5.2 Examples and/or Applications 

The error printout will contain the correct answer, the incorrect answer, and the two random 
numbers used. 

Visual inspection of these patterns will determine the cause of the error. A lookup table is 
provided for rapid repair which will give all of the information shown in section 4.6. 

Exit from TAD Test to the Rotate portion is accomplished by setting bit 3 in the SWITCH 
REGISTER. This switch also causes the program to print "ADD OK. " 

The Rotate Test generates 8192 patterns to be tested on two pairs of rotate instructions. The 
first pair of rotate instructions to be tested is RAL and RAR. The test pattern is rotated left once, then 
the result is rotated right once. The following items are compared: 

The result of the RAR should equal the test pattern and original link. 

The result of the link after the RAL should equal bit of the test pattern. 

If the RAR results and link equals the test pattern and link, the RAL and RAR instructions 
have operated correctly. 

If an error occurs and an error printout is requested, the test pattern and the results of both 
the RAL and RAR instructions are printed. Visual inspection of these patterns will determine the pro- 
bable cause of the error. 

The second pair of rotate instructions to be tested is RTR and RTL. The test pattern is rotated 
right twice, then the result is rotated left twice. The following items are compared: 

The result of the RTL should equal the test pattern and original link. 

The result of the link after the RTR should equal pattern bit 1 of the test pattern. 

If the RTL results and link equal the test pattern and link, the RTR and RTL, instructions 
have operated correctly. 

If an error occurs and an error printout is requested, the test pattern and the results of both 
the RTR and RTL Instructions are printed. Visual inspection of these patterns will determine the probable 
cause of the error. 



After a complete pass through the Rotate Test, the computer will print ROT. 

A printout of "2B" indicates the completion os a complete pass through the entire set of 
tests, after which the test begins again. 

6. METHODS 

See description section 5. 

7. EXECUTION TIME 

The TAD section takes 1 second for one complete pass; it will cycle continuously unless AC 
switch 3 is set. The Rotate portion takes 3 seconds for one complete pass. 

8. PROGRAM LISTING 





0000 


k3000 


0000 


^d\dX 


5001 


l^0k32 


0002 


k3003 


0003 




0020 


0020 


0000 


0021 


6046 


0022 


6041 


0023 


5022 


0024 


7200 


0025 


54i;0 


0026 


0000 


m'li 


/240 


0030 


0104 


0031 


4020 


0032 


7240 


V^%il 


0103 


0034 


4020 


0035 


7240 


0036 


0103 


0037 


4020 


0040 


5426 


0041 


0000 


0042 


7240 


0043 


0104 


0044 


4020 


0045 


7240 


0046 


0103 


0047 


4020 


0050 


5441 


0051 


0000 


0052 


0000 


0053 


0000 


0054 


0000 


0055 


0000 


0056 


0000 



1/11/68 3:19,9 



/PaP"b INSTHUUTION TtST PART 28 AUU^HOTATt 
»0 

0000 

JMP 1 

2 

5 

•0020 

PHXUOP, /PRINT LOOP 

TLS 
LPXX, TbF 



JMP i.PXX 

CUA 

JMP I PKXUUP 



CHLflKi 

CIA CMA 



AND CH /CR 

JMS PKXLOP 

CLA CMA 

AND \J /|,F 

JMS RHXLOP 

CUA CMA 

AND LI' /LF 

JMS PHxUOP 

JMP I CRIHF 

CHLF, 

CUA CMA 

AND CK /CR 

JMS PHXUOP 

CUA CMA 

AND \J /UF 

JMS PRXUUP 

JMP I CHLF 

PATi /liENERATOR PATTERN 

HAUKTUi /ROTATE UCFT PAJTURNS 

UFTUNfSi /KUTATt UtFT UiNK PATTERNS 

RARRTK, /ROTATE RiGHT PATTERNS 

RJTUNft, /ROTATE RjCiHT LINK PATTtRNS 

TSTl, /TEST FUAli 



fc5057 


0000 


0060 


4000 


fc5061 


2000 


i5062 


1000 


feJ063 


0400 


0064 


0200 


0065 


0100 


0066 


0040 


0067 


0020 


0070 


0010 


0071 


000^ 


00/2 


0002 


0073 


0001 


0074 


0057 


00/5 


0322 


0076 


0301 


00/7 


0314 


0100 


0324 


0101 


0320 


0102 


0240 


0103 


0212 


01#4 


4^215 


0105 


0060 


0106 


0061 


0107 


0317 


0110 


0313 


0111 


7764 


0112 


0000 


0113 


0262 


0114 


0302 


0115 


0000 


0116 


0000 


0117 


0000 


0120 


0000 


0121 


0000 


0122 


0000 


0123 


0000 


0124 


0000 


0125 


0000 


0126 


nit 


0127 


0000 


0130 


030/ 


0131 


0304 


0132 


^66^ 


0133 


0331 


0134 


0000 


0135 


0000 


0136 


0000 


0137 


//63 


0140 


0000 


0141 


73/7 



1/11/68 3;l9,13 



PROUTi /PRINT OUT UOCATlON 

K4000I 4000 /MASK LiST 

K2000I 2000 

K1000, 1000 

K0400f 0400 

K0200I 0200 

K0100I 0100 

K0040I 0040 

K0020I 0020 

K.0010? 0^10 

K000<^» B00« 

K0002i 0002 

K0001« 0001 

XPROUIi PKOUT 

R. 0322 /K 

A, 0301 /A 

Ti 0324 /T 

P, 0320 /P 

SPi 0240 /SP 

I.F, 0212 /UF 

CW, 0214> /CR 

lifcRO, 0060 /£ERO 

Qi^E» 0061 /gN^ 

0, 031/ /O ALPHA 

K, 0313 /K 

COUNTi 7/64 /MINUS 11 

STRCNT* 

■» . . r> r» 'J *. 'J > '3 

B, 0302 /» 
WUli 

MU2i 

BHlf 

CKY, 

TUTAti 

SUMi 

CNTR, 

HtAUEH, 

8ITSTK, 

SPAt;06, 7/76 /MINUS 1 

SPACSTi 

G, 030/ /b 

Ui 0304 /U 

X, 0330 /X 

Y, 0331 /r 

LIVK, /LINK 

XARb, /XAHt 

YARU, /YAKCi 

COUNTX, 7/63 

LNKSTHi 

K73/7, 7377 



1/li/OCi o.iri'y.Pl 



PAGl 6-1 



0360 



5741 



TAD J^(> 
JMP I SLQU 



6-1 



39<2 


0000 











t3143 


7240 


CLA 


CMA 






4144 


P)140 


AND 


Z LNKSTR 




tai45 


7440 


SZA 








0146 


5150 


JMP 


SL 






i3147 


5152 


JMP 


CL 






0150 


7360 


SL, 




CLA CMA 


STL 


0151 


5542 


JMP 


I cx 






0152 


7340 


CL, 




CLL CLA 


CMA 


0153 


5542 


JMP 


I CX 







»4000 



4000 


7200 


RAND2, 


CLA 


4001 


1417 


TAD 


I 0017 


4002 


3135 


DCA 


XARG 


4003 


1417 


TAD 


I 0017 


4004 


3136 


OCA 


YARG 


4005 


2216 


IS2 


RCNT 


4006 


5647 


JMP 


I XSTRXY 


4007 


1215 


TAD 


LISTX 


4010 


3017 


OCA 


0017 


4011 


1214 


TAD 


M144 


4012 


3216 


OCA 


RCNT 


4013 


5647 


JMP 


I XSTRXY 


4014 


7634 


M144, 


-144 


4015 


4177 


LISTX. 


LIST-1 


4016 


0000 


RCNT, 


0000 


4017 


0000 


ODEVEh 


I. 0000 


4020 


7300 


RAND, 


CLL CLA 


4021 


2217 


IS2 


odfven 


4022 


7000 


NOP 




4023 


1217 


TAO 


OOEVEN 


4024 


7010 


RAR 




4025 


7630 


SZL 


CLA 


4026 


5230 


JMP 


RANDl 


4027 


5200 


JMP 


RAND2 


4030 


7604 


RANDl; 


CLA OSR 


4031 


0063 


AND 


? K0400 


4032 


7000 


NOP 




4033 


7440 


SZA 




4034 


5650 


JMP 


I AODX 


4035 


7240 


CLA 


CMA 


4036 


0121 


AND 


Z TOTAL 


4037 


7000 


NOP 




4040 


3135 


DCA 


I XARG 


4041 


7040 


CMA 




4042 


0121 


AND 


? TOTAL 


4043 


7001 


lAC 




4044 


1410 


TAO 


I Z 10 


4045 


3136 


OCA 


Z YARG 


4046 


5647 


JMP 


I XSTRXY 


4047 


0225 


XSTRXY, STRXY 


4050 


0312 


AODX, 


PAOOOK 



/STORE FIXED PAT 
/STORE FIXED PAT 
/EXIT TO TEST 

/EXIT TO TEST 



/fixed pattern 
/Random pattern 



/SW 3 EQUALS A ONE TO EXIT 







•0017 


mil 


4177 


LIST-1 
*4051 


4051 


7240 


FCOMP, CLA CMA 


4052 


5^121 


AND Z TOTAL 


4053 


7040 


CMA 


4054 


{^122 


AND Z SUM 


4055 


3275 


DCA CXM 


4056 


7240 


CLA CMA 


4057 


0122 


AND Z SUM 


4060 


7040 


CMA 


4061 


V12\ 


AND Z TOTAL 


4062 


3274 


DCA CXN 


4063 


7240 


CLA CMA 


4064 


0275 


AND CXM 


4065 


7440 


SZA 


4066 


5616 


JMP I ERX 


4067 


7240 


CLA CMA 


4070 


0274 


AND CXN 


4071 


7440 


SZA 


4072 


5676 


JMP I ERX 


4073 


5277 


JMP LCOMP 


4074 


0000 


CXN, 


4075 


0000 


CXM, 


4076^ 


. SiAMl 


£i?X^^^ ERROR 


4077 


7240 


LCOMP, CLA CMA 


4100 


0134 


AND Z LINK 


4101 


7040 


CMA 


4102 


0120 


AND Z CRY 


4103 


3322 


DCA LRX 


4104 


7240 


CLA CMA 


a -1 mc 


on oa 


AWn 3 PRY 


' J. " -c 


»> X c- t/ 




4106 


7040 


CMA 


4107 


0134 


AND Z LINK 


4110 


3323 


DCA LRY 


4111 


7240 


CLA CMA 


4112 


0322 


AND LRX 


4113 


7440 


SZA 


4114 


5676 


JMP I ERX 


4115 


7240 


CLA CMA 


4116 


0323 


AND LRY 


4117 


7440 


SZA 


4120 


5676 


JMP I ERX 


4121 


5724 


JMP I NOERX 


4122 


0000 


LRX, 


4123 


0000 


LRY, 


4124 


0407 


NOERX. NOERR 



/COMPARE SUM AND TOTAL 



/ERROR 



/ERROR 



/COMPARE CRY AND LINK 
/LINK BIT IN BIT 11 



/ERROR 



/ERRROR 



»4200 



4200 


7777 


LIST, 


4201 


7777 


7777 


4202 


7776 


7776 


4203 


7777 


7777 


4204 


7775 


7775 


4205 


7777 


7777 


4206 


7773 


7773 


4207 


7777 


7777 


4210 


7767 


7767 


4211 


7777 


7777 


4212 


7757 


7757 


4213 


7777 


7777 


4214 


7737 


7737 


4215 


7777 


7777 


4216 


7677 


7677 


4217 


7777 


7777 


4220 


7577 


7577 


4221 


7777 


7777 


4222 


7377 


7377 


4223 


7777 


7777 


4224 


6777 


6777 


4225 


7777 


7777 


4226 


5777 


5777 


4227 


7777 


7777 


4230 


3777 


3777 


4231 


7777 


7777 


4232 


7777 


7777 


4233 


7777 


7777 


4234 


7776 


7776 


4235 


7777 


7777 


4236 


7775 


7775 


4237 


7777 


7777 


4240 


7773 


7773 


4241 


7777 


7777 


4242 


7767 


7767 


4243 


7777 


7777 


4244 


7757 


7757 


4245 


7777 


7777 


4246 


7737 


7737 


4247 


7777 


7777 


4250 


7677 


7677 


4251 


7777 


7777 


4252 


7577 


7577 


4253 


7777 


7777 


4254 


7377 


7377 


4255 


6777 


6777 


4256 


7777 


7777 


4257 


5777 


5777 


4260 


7777 


7777 


4261 


3777 


3777 



7777 



4262 


7777 


7777 


4263 


0001 


0001 


4264 


7777 


7777 


4265 


0002 


0002 


4266 


7777 


7777 


4267 


0004 


0004 


4270 


7777 


7777 


4271 


0010 


0010 


4272 


7777 


7777 


4273 


0020 


0020 


4274 


7777 


7777 


4275 


0040 


0040 


4276 


7777 


7777 


4277 


0100 


0100 


4300 


7777 


7777 


4301 


0200 


0200 


4302 


7777 


7777 


4303 


0400 


0400 


4304 


7777 


7777 


4305 


1000 


1000 


4306 


7777 


7777 


4307 


2000 


2000 


4310 


7777 


7777 


4311 


4000 


4000 


4312 


0001 


0001 


4313 


7777 


7777 


4314 


0002 


0002 


4315 


7777 


7777 


4316 


0004 


0004 


4317 


7777 


7777 


4320 


0010 


0010 


4321 


7777 


7777 


4322 


0200 


0200 


4323 


7777 


7777 


4324 


0400 


0400 


4325 


7777 


7777 


4326 


0100 


0100 


4327 


7777 


7777 


4330 


0200 


0200 


4331 


7777 


7777 


4332 


0400 


0400 


4333 


7777 


7777 


4334 


1000 


1000 


4335 


7777 


7777 


4336 


2000 


2000 


4337 


7777 


7777 


4340 


4000 


4000 


4341 


7777 


7777 



u* 







«0200 






1^200 


7240 


ARITHI 


, 


CLA CMA 


0201 


3124 


OCA 


Z 


HEADER 


14202 


7240 


CLA 


CMA 


1*3203 


3135 


DCA 


XARG 


0204 


7240 


CLA 


CMA 


0205 


3136 


DCA 


YARG 


0206 


7240 


CLA 


CMA 


0207 


3121 


DCA 


TOTAL 


0210 


3134 


DCA 


Z 


LINK 


0211 


3115 


DCA 


Z 


WDl 


0212 


5223 


JMP 


INCR 


0213 


3120 


DCA 


Z 


CRY 


0214 


7340 


ADD, 




CLA CMA CLL 


0215 


P1135 


AND 


Z 


XARG 


0216 


1136 


TAD 


Z 


YARG 


0217 


3122 


DCA 


Z 


SUM 


0220 


7004 


RAL 






0221 


3134 


OCA 


Z 


LINK 


0222 


5737 


JMP 


I 


XFCOMP / 


0223 


5624 


INCR, 




JMP I INCRX 


0224 


4020 


INCRX, 




RAND 


^2%^ 


7240 


STRX-Y, 




- CLA -etf* 


0226 


P'135 


AND 


z 


XARG 


0227 


3115 


DCA 


z 


WOl 


0230 


7240 


CLA 


CMA 


0231 


0136 


AND 


Z 


YARG 


0232 


3116 


DCA 


Z 


W02 


0233 


4235 


JMS 


ADDISM 


0254 


5214 


JfiP 


ADO 



/STORE SUM OF REAL ADD 

/STORE LINK OF REAL ADD AT BIT 11 
/COMPARE SUM AND TOTAL 



/XARG EQUALS WD2 



/YARG EQUALS WD2 
/JMS TO FAKE ADD 



11 



0235 


0000 


ADDISf- 


U 







^236 


7300 


CLA 


CLL 




^237 


3121 


OCA 


2 


TOTAL 




0240 


3120 


DCA 


Z 


CRY 




0241 


7040 


CMA 








0242 


0111 


AND 


I 


COUNT 


/MINUS 11 


k^243 


3123 


DCA 


I 


CNTR 




v3244 


7040 


AISM. 




CMA 




•^245 


(^115 


AND 


I 


WDl 




*^246 


7010 


RAR 








0247 


3115 


OCA 


i 


WDl 




0250 


7004 


RAL 








0251 


3117 


OCA 


2 


BWl 




0252 


7040 


CMA 








0253 


0116 


AND 


I 


WD2 




0254 


7010 


RAR 








0255 


3116 


OCA 


I 


WD2 




0256 


7040 


CMA 








0257 


0117 


AND 


BWl 




0260 


7420 


SNL 








0261 


5302 


JMP 


DISM 




0262 


7450 


SNA 








0263 


5305 


JMP 


CISM 




0264 


7300 


CLL 


CLA 




0265 


7040 


AXISM, 




CMA 




0266 


0120 


AND 


Z 


CRY 




0267 


7010 


RAR 








0270 


7040 


CMA 








0271 


0117 


AND 


Z 


BWl 




0272 


3120 


BISM, 




DCA Z 


CRY 


0273 


7040 


CMA 








0274 


0121 


AND 


Z 


TOTAL 




0275 


7010 


RAR 








0276 


3121 


OCA 


z 


TOTAL 




0277 


?123 


ISZ 


z 


CNTR 




0300 


5244 


JMP 


AISM 




0301 


5635 


JMP 


I 


AODISM 




0302 


7450 


DISM, 




SNA 




0303 


5265 


JMP 


AXISM 




0304 


7220 


CML 


CLA 




0305 


7040 


CISM, 




CMA 




0306 


0120 


AND 


Z 


CRY 




0307 


7440 


SZA 








0310 


7100 


CLL 








0311 


5272 


JMP 


BISM 





/FAKE ADD 



^312 


4041 


PADOOH 


;, JMS 2 


0313 


7240 


CLA 


CMA 


k53l4 


(^076 


AND 


2 A 


^315 


4020 


JMS 


2 PRXLOP 


0316 


7240 


CLA 


CMA 


0317 


0131 


AND 


2 


13320 


4020 


JMS 


2 PRXLOP 


0321 


7240 


CLA 


CMA 


0322 


C1131 


AND 


2 


0323 


4020 


JMS 


2 PRXLOP 


0324 


7240 


CLA 


CMA 


0325 


0102 


AND 


2 SP 


0326 


4020 


JMS 


2 PRXLOP 


0327 


7240 


CLA 


CMA 


0330 


0107 


AND 


2 


0331 


4020 


JMS 


2 PRXLOP 


0332 


7240 


CLA 


CMA 


0333 


0110 


AND 


2 K 


0334 


4020 


JMS 


2 PRXLOP 


0335 


5736 


JMP 


I ROTATE 


0336 


2000 


ROTATE, GENl 


0337 


4051 


XFCOMP, FCOMP 



CRLF /CR LF 

/A 

/D 

/D 

/SP 

/O 

/K 
/EXIT ADD TEST 



13 







«0400 


/)400 


7604 


ERROR, CLA OSR 


0401 


7106 


CLL RTL 


0402 


7510 


SPA 


0403 


4216 


JMS PRINT 


0404 


7604 


CLA OSR 


0405 


7510 


SPA 


0406 


7402 


HLT 


0407 


7604 


NOERR. CLA OSR 


0410 


7104 


CLL RAL 


0411 


7510 


SPA 


0412 


5614 


JMP I SXY 


0413 


5615 


JMP I INCRT 


0414 


0225 


SXY, STRXY 


0415 


0223 


INCRT, INCR 


0416 


0000 


PRINT, 


0417 


7240 


CLA CMA 


0420 


fil24 


AND Z HEADER 


0421 


7440 


SZA 


0422 


4321 


JMS PRHEAD 


0423 


7000 


PRERR, NOP 


0424 


4041 


JMS Z CRLF 


0425 


4020 


JMS Z PRXLOP 


0426 


7240 


CLA CMA 


0427 


0120 


AND i CRY 


0430 


4635 


JMS I XONZER 


0431 


7240 


CLA CMA 


0432 


0102 


AND Z SP 


0433 


4020 


JMS Z PRXLOP 


0434 


5236 


JMP PTOTAL 


0435 


2637 


XONZER. ONZER 



/READ IN SR 

/SW2 EQUALS A ONE TO PRINT 

/JMS TO PRINT ROUTINE 

/SW0 EQUALS A ONE TO HALT 
/HALT ON ERROR 



/SWl EQUALS A ONE TO SCOPE MODE 
/SCOPE MODE 
/CONTINUE MODE 



/HEADER FLAG 

/JMS TO PRINT HEADER ROUTINE 
/CR LF 



/TEST FAKE LINK FOR SEX AND 
/PRINT A ONE OR ZERO 



/PRINT SP 

/PRINT CONTENTS OF FAKE ADD 
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i4436 


7240 


PTOTAL, CLA CMA 


kJ437 


0121 


AND Z TOTAL 


id440 


3125 


DCA Z BITSTR 


0441 


4266 


JMS MESSG 


^442 


7240 


CLA CMA 


0443 


0134 


AND Z LINK 


0444 


4635 


JMS I XONZER 


0445 


7240 


CLA CMA 


0446 


0102 


AND Z SP 


0447 


4020 


JMS Z PRXLOP 


0450 


5251 


JMP XTOTAL 


0451 


7240 


XTOTAL, CLA CMA 


0452 


0122 


AND Z SUM 


0453 


3125 


DCA Z BITSTR 


0454 


4266 


JMS MESSG 


0455 


7240 


CLA CMA 


0456 


0135 


AND Z XARG 


0457 


3125 


DCA Z BITSTR 


0460 


4266 


JMS MESSG 


0461 


7240 


CLA CMA 


0462 


0136 


AND Z YARG 


0463 


3125 


DCA Z BITSTR 


0464 


4266 


JMS MESSG 


04^5 


56-16 


JMP I PRIHT 



/STORE CONTENTS OF FAKE ADO 



/TEST REAL LINK FOR SEX AND 
/PRINT A ONE OR ZERO 



/ PRINT SP 

/STORE CONTENTS OF REAL ADD 

/STORE XARG 

/STORE Y ARG 

/EXIT TD SWITCH ROUTIN£ 
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\dA66 (7i000 MESSG, 

^467 7240 CLA CMA 

^470 (^137 AND 2 COUNTX 

v447l 3112 OCA Z STRCNT 

k5472 2112 NBIT, ISZ I STRCNT 

0473 7410 SKf= 

^474 5312 JMP PRSPaC /12 COUNTS FINISHED 

0475 7240 CLA CMA 

^476 (^125 AND Z BITSTR 

4477 7100 CLL 

^500 7004 RAL 

4501 3125 OCA Z BITSTR /STORE ROTATED WORD 

0502 7430 SZL 

'^503 5306 JMP PRONE 

^504 4764 PRZERO, JMS I X2ER0R /PRINT ZERO 

v4505 5272 JMP NBIT 

4506 7240 PRONE» CLA CMA 

0507 0106 AND Z ONE 

4510 4020 JMS Z PRXLOP /PRINT ONE 

0511 5272 JMP NBIT 

0512 7240 PRSPAC, CLA CMA 

0513 0102 AND Z SP 

4514 4020 jMS Z PRXLOP /SP 

4515 7240 CLA CMA 

4516 0102 AND Z SP /SP 
0517 4020 JMS Z PRXLOP 

0520 5666 JMP I MESSG 

4521 0000 PRHEAO, 

4522 7200 CLA 

4523 3124 DCA Z HEADER /CLEAR HEADER FLAG 

4524 7240 CLA CMA 

4525 0126 AND 2 SPAC06 

4526 3127 DCA 2 SPACST /STORE SPACE COUNT 

4527 4041 JMS Z CRLF /PRINT CR LF 



1A 



4530 


7240 


SPA06, 


CLA 


CMA 








0531 


PI102 


AND 


2 SP 










0532 


4020 


JMS 


2 PRXLOP 




/PRINT 6 


SPACI 


0533 


2127 


!S? 


2 SPACST 










0534 


5330 


JMP 


SPA06 










0535 


7240 


CLA 


CMA 










0536 


C^130 


AND 


2 G 






/G 




0537 


4020 


JMS 


2 PRXLOP 










0540 


7240 


CLA 


CMA 










0541 


etl07 


AND 


2 






/O 


ALPHA 


0542 


4020 


JMS 


2 PRXLOP 










0543 


7240 


CLA 


CMA 










0544 


P1107 


AND 


2 






/O 


ALPHA 


0545 


4020 


JMS 


2 PRXLOP 










0546 


7240 


CLA 


CMA 










0547 


P)131 


AND 


2 D 






/D 




0550 


4020 


JMS 


2 PRXLOP 










0551 


4762 


JMS 


I MANYSP 




/JMP 


TO 


PRINT 


0552 


7240 


CLA 


CMA 










0553 


(^114 


AND 


2 B 






/B 




0554 


4020 


JMS 


2 PRXLOP 










0555 


7240 


CLA 


CMA 










0556 


0076 


AND 


2 A 






/A 




0557 


4020 


JMS 


2 PRXLOP 










0560 


5761 


JMP 


I CONHED 










0561 


PI600 


CONHEO, HEDCON 








0562 


f^626 


MANYSP, j^^^^ 








0563 


5721 


HEORJ 


JMP 


I PRHEAD 




/EX 


0564 


2702 


X2ER0R, 2ER0R 









/EXIT HEADER ROUTINE 
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»0600 




A6^d 


7240 


HEOCON. CLA CMA 




^601 


0131 


AND Z 


/D 


■/5602 


4020 


JMS 2 PRXLOP 




0603 


4226 


JMS TWELVE 


/12 SPACES 


i4604 


7240 


CLA CMA 




id605 


P1132 


AND 2 X 


/X 


0606 


4020 


JMS 2 PRXLOP 




0607 


7240 


CLA CMA 




0610 


R102 


AND Z SP 


/SP 


0611 


4020 


JMS Z PRXLOP 




0612 


4240 


JMS ARGXXX 


/ARG 


0613 


4226 


JMS TWELVE 


/12 SPACES 


0614 


7240 


CLA CMA 




3615 


0133 


AND Z Y 


/Y 


0616 


4020 


JMS Z PRXLOP 




0617 


7240 


CLA CMA 




0620 


(^102 


AND Z SP 


/SP 


0621 


4020 


JMS Z PRXLOP 




0622 


4240 


JMS ARGXXX 


/ARG 


0623 


4041 


JMS Z CRLF 


/CR LF 


0624 


5625 


JMP I RJHED 


/JUMP TO EXIT HE, 


0625 


(^563 


RJHEO, HEDRJ 




0626 


0000 


TWELVE* 




0627 


7240 


CLA CMA 




0630 


P'lll 


AND Z COUNT 




0631 


3127 


DCA Z SPACST 


/STORE MINUS 12 


0632 


7240 


SPA12, CLA CMA 




0633 


0102 


AND Z SP 


/SP 


0634 


4020 


JMS Z PRXLOP 


/PRINT 12 SPACES 


0635 


2127 


ISZ Z SPACST 




0636 


5232 


JMP SPA12 




0637 


5626 


JMP I TWELVE 




0640 


0000 


ARGXXX, 




0641 


7240 


CLA CMA 




/!642 


0076 


AND Z A 


/A 


'^643 


4020 


JMS Z PRXLOP 




064 4 


7240 


CLA CMA 




0645 


0075 


AND Z R 


/R 


0646 


4020 


JMS Z PRXLOP 




0647 


7240 


CLA CMA 




0650 


0130 


AND 2 G 


/G 


0651 


4020 


JMS Z PRXLOP 




0652 


5640 


JMP I ARGXXX 





HEADER ROUTINE 



m 







•2000 






2000 


4316 


GENl, 


JMS 


HSEKP 


2001 


4142 


CONTl, 


JMS 


Z CX 


2002 


f"051 


AND 


Z PAT 




2003 


7001 


lAC 






2004 


3051 


DCA 


Z PAT 




2005 


7420 


SNL 






2006 


5215 


JMP 


CLRLNK 




2007 


1060 


TAD 


K4000 




2010 


3140 


OCA 


Z LNKSTR 




2011 


4352 


PTIEX, 


JMS 


EX 


2012 


7440 


S2A 






2013 


5220 


JMP 


ROTl 




2014 


5274 


JMP 


GEN2 




2015 


7200 


CLRLNH 


;, CLA 




2016 


3140 


DCA 


Z LNKSTR 




2017 


5211 


JMP 


PTIEX 




2020 


7240 


ROTl, 


CLA 


CMA 


2021 


3056 


OCA 


Z TSTl 




2022 


7340 


CLL 


CLA CMA 




2023 


0140 


AND 


Z LNKSTR 




2024 


7440 


SZA 






2025 


5272 


JMP 


SETLNK 




2026 


7140 


CLL 


CMA 




2027 


0051 


RER0T1 


AND 


2 PAT 


2030 


7004 


RAL 






2031 


3052 


DCA 


Z RALRTL 




2032 


7430 


SZL 






2033 


1060 


TAD 


Z K4000 




2034 


3053 


DCA 


Z LFTLNK 




2035 


7240 


CLA 


CMA 




2036 


0052 


AND 


Z RALRTL 




2037 


7010 


RAR 






2040 


3054 


DCA 


Z RARRTR 




2041 


7430 


SZL 






2042 


1060 


TAD 


r K4000 




2043 


3055 


DCA 


Z RITLNK 





/STORE INCREMENTED PATTERN 
/JMP TO CLEAR LNKSTR 
/SET LNKSTR TO 4000 

/EXIT ROTl 



/SET TSTl FLAG 



/CLEAR LINK 

/BRING UP PATTERN 

/STORE RAL PATTERN 

/SKIP IF LINK EQUALS A ZERO 
/SET RAL LINK STORE 
/CLEAR RAL LINK STORE 



/STORE RAR PATTERN 

/SKIP IF LINK EQUALS A ZERO 
/SET RAR LINK STORE 
/CLEAR RAR LINK STORE 
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''^044 


7340 


^045 


/054 


^046 


7040 


2047 


1051 


^050 


7040 


20'?1 


7450 


^052 


7430 


2053 


5715 


2054 


, 1060 


2055 


0051 


2056 


7040 


2057 


1053 


£:060 


7040 


2061 


7440 


2062 


5715 


2063 


1055 


2064 


7040 


2065 


1140 


2066 


7040 


2067 


7440 


2070 


5715 


2071 


5751 


2072 


7360 


2073 


5227 


2074 


4316 


2075 


4142 


2076 


0051 


2077 


7001 


2100 


3051 


2101 


7420 


2102 


5311 


2103 


1060 


2104 


3140 


2105 


4363 


2106 


7440 


2107 


5714 


2110 


5332 



CLL CLA CMA 

AND ? RARRjR 

CMA 

TAO I PAT 

CMA 

SNA 

S2L 

JMP I ERSWIX 

TAD K4000 

AND 2 PAT 

CMA 

TAD Z LFTLNK 

CMA 

S2A 

JMP I ERSWIX 

TAO 2 RITLNK 

CMA 

TAD 2 LNKSTR 

CMA 

S2A 

JMP I FRSWIX 

JMP I SXOKXl 
SETLNK, CLA CMA STL 

JMP REROTl 
GEN2, JMS HSEKP 
C0NT2, JMS 2 CX 

AND 2 PAT 

lAC 

OCA 2 PAT 

SNL 

JMP CLLINK 

TAD K4000 

OCA 2 LNKSTR /SET LNKSTR TO 4000 
PTIEXX, JMS EXl 

S2A 

JMP I R0T2X 

JMP ROTOK /EXIT ROTATE TESTS 



/RARRtR SHOULD EQUAL PAT 

/COMPARE RaRTR with PAT 
/AC SHOULD EQUAL 2ER0 



/JUMP TO ERROR SWITCHES 

/MASK BIT OF PAT 

/COMPARE LFTLNK WITH PAT 
/BIT 

/JUMP TO ERROR SWITCHES 
/COMPARE PAT LINK WITH RITLNK 

/SET LINK 



/STORE INCREMENTED PATTERN 
/JUMP TO CLEAR LNKSTR 
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2111 


7200 


CLLINK 


• t 


CLA 


i?112 


3140 


DCA 


I 


LNKSTR 


2113 


5305 


JMP 


PTIEXX 


2114 


2200 


R0T2X, 




R0T2 


2115 


2400 


ERSWIX 


■ » 


ERRSWl 


2116 


l?i000 


HSEKP, 







2117 


7300 


CLA 


CLL 


2120 


3051 


DCA 


Z 


PAT 


2121 


3052 


DCA 


i 


RALRTL 


2122 


3054 


DCA 


i 


RARRTR 


2123 


3053 


DCA 


I 


LFTLNK 


2124 


3055 


OCA 


I 


RITLNK 


2125 


3140 


DCA 


? 


LNKSTR 


2126 


7000 


NOP 






2127 


7000 


NOP 






2130 


7000 


NOP 






2131 


5716 


JMP 


I 


HSEKP 


2132 


7200 


ROTOK, 




CLA 


2133 


4041 


JMS 


¥. 


CRLF 


2134 


1075 


TAD 


I 


R 


2135 


4020 


JMS 


I 


PRXLOP 


2136 


1107 


TAD 


i 





2137 


4020 


JMS 


i 


PRXLOP 


2140 


1100 


TAD 


i 


T 


-2-l4lr 


A^2id- 


J+tS-^^ftX-tOP 


2142 


4041 


JMS 


f. 


CRLF 


2143 


1113 


TAD 


i 


TWO 


2144 


4020 


JMS 


I 


PRXLOP 


2145 


1114 


TAD 


i 


B 


2146 


4020 


JMS 


i 


PRXLOP 


2147 


5750 


JMP 


I 


ARITH 


2150 


M200 


arith, 




ARITHT 


2151 


2521 


SXOKXl, 


SWOKXl 


2152 


0000 


EX, 







2153 


1140 


TAD 


I 


LNKSTR 


2154 


7440 


SZA 






2155 


7410 


SKP 






2156 


5220 


JMP 


ROTl 


2157 


7240 


CLA 


CMA 


2160 


fi051 


AND 


i 


PAT 


2161 


7040 


CMA 






2162 


5752 


JMP 


I 


FX 


2163 


(^000 


EXl, 







2164 


1140 


TAD 


Z 


LNKSTR 


2165 


7440 


S2A 






2166 


7410 


SKP 






2167 


5714 


JMP 


I 


R0T2X 


2170 


7240 


CLA 


CMA 


2171 


(^051 


AND 


Z 


PAT 


2172 


7040 


CMA 






2173 


5763 


JMP 


I 


EXl 



/CRLF 
/R 

/O 

/T 

/CRLF 

/2 

/B 
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«2200 



^200 


7300 


R0T2. 


CLA 


CLL 


2201 


3056 


DCA 2 


TSTl 




2202 


7340 


CLL CLA CMA 




22M3 


(^140 


AND Z 


LNKSTR 




;^204 


7440 


SZA 






12^5 


5250 


JMP STLNK 




■<L2\t>b 


7140 


CLL CMA 




2207 


(^051 


RER0T2, 


AND 


Z PAT 


2210 


7012 


RTR 






^211 


3054 


OCA Z 


RARRTR 




2212 


7430 


SZL 






2213 


1072 


TAD Z 


K0002 




2214 


3055 


DCA Z 


RITLNK 




2215 


1054 


TAD Z 


RARRTR 




2216 


7006 


RTL 






2217 


3052 


DCA Z 


RALRTL 




2220 


7430 


SZL 






2221 


1060 


TAD Z 


K4000 




2222 


3053 


DCA Z 


LFTLNK 




2223 


7100 


CLL 






2224 


1052 


TAD Z 


RALRTL 




.>225 


7040 


CMA 






2226 


1051 


TAD Z 


PAT 




2227 


7040 


CMA 






2230 


7440 


SZA 






2231 


5652 


JMP I 


FRSW2X 




2232 


1072 


TAD Z 


K0002 




2233 


(^-051 


AND Z 


PAT 




2234 


7040 


CMA 






2235 


1055 


TAD ? 


RITLNK 




2236 


7040 


CMA 






2237 


7440 


SZA 






2240 


5652 


JMP I 


FRSW2X 




2241 


1053 


TAD Z 


LFTLNK 




^242 


7040 


CMA 






2243 


1 140 


TAD Z 


LNKSTR 




2244 


7040 


CMA 






2245 


7440 


SZA 






2246 


5652 


JMP I 


ERSW2X 




2247 


5653 


JMP I 


SX0KX2 





/CLEAR TEST FLAG 



/BRING UP PATTERN 



/STORE RTR PATTERN 

/SKIP IF LINK EQUALS A ZERO 
/SET RTR LINK STORE 
/CLEAR RTR LINK STORE 



/STORE RTL PATTERN 

/SET RTL LINK STORE 
/CLEAR RTL LINK STORE 

/RALRTL SHOULD EQUAL PAT 

/COMPARE RALRTL WITH PAT 



/JMP TO ERROR SWITCHES 
/COMPARE ROTLNK WITH PAT BIT 10 

/MASK BIT 10 OF PAT 



/LFT LINK SHOULD EQUAL LNKSTR 
/COMPARE LFTLNK WITH LNKSTR 

/JUMP TO ERROR SWITCHES 



2250 7360 STLNK, CLA CMA STL 

2251 5207 JMP RER0T2 

2252 2406 ERSW2X, ERRSW2 

2253 2525 SX0KX2, SW0KX2 
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♦2400 




24ti0 


7200 


ERRSWl 


CLA 


2401 


1244 


TAD 


ROTXl 


2402 


3215 


DCA 


ERIN 


2403 


1245 


TAD 


CONTXl 


2404 


3214 


DCA 


CONTX 


2405 


5216 


JMP 


ERSW 


2406 


7200 


ERRSW2. CLA 


2407 


1250 


TAD 


R0TX2 


2410 


3215 


DCA 


ERIN 


2411 


1251 


TAD 


C0NTX2 


2412 


3214 


DCA 


CONTX 


2413 


5216 


JMP 


ERSW 


2414 


0000 


CONTX, 





2415 


0000 


ERIN, 





2416 


7604 


ERSW, 


CLA 


2417 


0062 


AND 


I K1000 


2420 


7040 


CMA 




2421 


1062 


TAD 


Z K1000 


2422 


7040 


CMA 




2423 


7450 


SNA 




2424 


4255 


JMS 


ROPR 


2425 


7604 


CLA 


OSR 


2426 


0060 


AND 


Z K4000 


^t^^- 


-THr^ 


~ trw*- 


— 


2430 


1060 


TAD 


Z K4000 


2431 


7040 


CMA 




2432 


7450 


SNA 




2433 


7402 


HLT 




2434 


7604 


SWOK, 


CLA 


2435 


(^061 


AND 


Z K2000 


2456 


7040 


CMA 




2437 


1061 


TAD 


Z K2000 


2440 


7040 


CMA 




2441 


7450 


SNA 




2442 


5615 


JMP 


I ERIN 


2443 


5614 


JMP 


I CONTX 



/SCOPE MODE RJMP ADDRESS 

/CONTINUE MODE RJMP ADDRESS 

/SCOPE MODE RJMP ADDRESS 

/CONTINUE MODE RJMP ADDRESS 



OSR 



/READ IN SWITCHES 



/MASK BIT 2 



/TEST BIT 2 SWITCH 



/MASK BIT 



/TEST BIT SWITCH 
/ERROR HALT 



OSR 



/MASK BIT 1 



/TEST BIT 1 SWITCH 
/JMP TO SCOPE MOO 
/JMP TO CONTINUE MODE 
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2444 


2020 


ROTXl, 


ROTl 




:<:445 


2001 


CONTXl, 


CONTl 




^446 


2000 


GENIXI, 


GENl 




^447 


2074 


GEN2X2, 


GEN2 




,^450 


2200 


R0TX2, 


R0T2 




i?45l 


2075 


C0NTX2» 


C0NT2 




2452 


2464 


TWOROX, 


TWORO 




2453 


2465 


FINPRX, 


FINPR 




2454 


2650 


RARPRX, 


RARPR 




2455 


f^000 


ROPR. 





/RJMP TO SWITCH ROUTINE 


2456 


4026 


JMS Z 


CRLFLF 


/PRINT CR LF LF 


2457 


4714 


JMS I 


PATPRX 


/PRINT PAT 


2460 


7200 


CLA 






2461 


1056 


TAD Z 


TSTl 




2462 


7440 


SZA 






2463 


5266 


JMP ROTIPR 


/PRINT ROTATE ONE PATTERN 


2464 


4715 


TWORO, 


JMS I 


R0T2PX /PRINT ROTATE TWO PaTTeRN 


2465 


5655 


FINPR, 


JMP I 


ROPR 


2466 


7200 


ROTIPR, 


CLA 




2467 


1254 


TAD RARPRX 




2470 


3714 


OCA I 


PATPRX 




2471 


4041 


JMS Z 


CRLF 


/PRINT CR LF 


2472 


7200 


CLA 






2473 


1075 


TAD Z 


R 


/R 


2474 


4020 


JHS Z 


PRXLOP 




24 75 


1076 


TAD Z 


A 


/A 


2476 


4020 


JMS Z 


PRXLOP 




2477 


1077 


TAD Z 


L 


/L 


2500 


4020 


JMS Z 


PRXLOP 




2501 


1102 


TAD Z 


SP 


/SP 


2502 


4020 


JMS Z 


PRXLOP 




2503 


1053 


TAD Z 


LFTLNK 




2504 


7440 


SZA 






2505 


5716 


JMP I 


LNONER 


/LEFT LINK PRINT ONE 


2506 


4717 


JMS I 


ZERORX 


/LEFT LINK PRINT ZERO 


2507 


1102 


ROIX, 


TAD Z 


SP 


2510 


4020 


JMS Z 


PRXLOP 


/SP 


2511 


1052 


TAD Z 


RALRTL 




2512 


3057 


OCA Z 


PROUT 




2513 


5720 


JMP I 


COUNXX 


/PRINT RALRTL CONTENTS 


2514 


2600 


PATPRX, 


PATPR 




2515 


2732 


R0T2PX. 


R0T2PR 




2516 


2676 


LNONER, 


LNONE 




2517 


2702 


ZERORX, 


ZEROR 




2520 


2616 


COUNXX, 


COUNPR 




2521 


7200 


SWOKXl, 


CLA 




2522 


1245 


TAD CONTXl 




2523 


3214 


[)CA CONTX 




2524 


•^234 


JMP SWOK 




2525 


7200 


SW0KX2, 


CLA 




2526 


1251 


TAD C0NTX2 




2527 


3214 


DCA CONTX 




2530 


5234 


JMP SWOK 









»2600 






2600 


fi000 


PATPR, 







ibUl 


1101 


TAD 


H 


P 


■lb^.2 


4020 


JMS 


i 


PRXLOP 


'<Lb^l 


1076 


TAD 


7. 


A 


2604 


4020 


JMS 


i 


PRXLOP 


2605 


1100 


TAD 


i 


T 


2606 


4020 


JMS 


i 


PRXLOP 


26«7 


1102 


TAD 


I 


SP 


2610 


4020 


JMS 


I 


PRXLOP 


2611 


4361 


JMS 


PLINK 


2612 


1102 


TAD 


Z 


SP 


2613 


4020 


JMS 


Z 


PRXLOP 


2614 


1051 


TAD 


Z 


PAT 


2615 


3057 


DCA 


Z 


PROUT 


2616 


4231 


COUNPF 


\, 


JMS MINDEX 


2617 


0137 


AND 


Z 


COUNTX 


2620 


3112 


DCA 


Z 


STRCNT 


2621 


2112 


LSTBIl 


> 


ISZ Z STRC 


2622 


7410 


SKP 






2623 


5600 


JMP 


I 


PATPR 


2624 


7200 


CLA 






2625 


1057 


TAD 


z 


PROUT 


2626 


0410 


AND 


I 


Z 10 


2A2X 


4237 


4MS— ONi^R- - 


2630 


5221 


JMP 


LSTBIT 


2631 


0000 


MINDE) 


(. 





2632 


7200 


CLA 






2633 


1074 


TAD 


Z 


XPROUT 


^634 


3010 


DCA 


z 


10 



/p 

/A 
/T 
/SP 



/SP 

/STORE GENERATED PATTERN 

/JMS TO MASK INDEX ROUTINE 



/12 COUNTS FINISHED 



/INDEX STARTING ADDRESS 

/STORE INDEX ADDRESS 



2636 5631 JMP I MINDEX 
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?.bil ^000 0N2ER, 

^640 7440 SZA 

2641 5244 JMP ONEP /JMP TO PRINT ONE 

ZbA2 4302 JMS ZEROR 

2643 5637 JMP I ONZER 

2644 7240 ONEP, CLA CMA 

2645 P'106 AND 2 ONE 

2646 4020 JMS I PRXLOP /PRINT ONE 

2647 5637 JMP I ONZER 

2650 7200 RARPR* CLA 

2651 1273 TAD FINPRN 

2652 3200 OCA PaTPR 

2653 4041 JMS ? CRLF /CR LF 

2654 7200 CLA 

2655 1075 TAD Z R /R 

2656 4020 JMS Z PRXLOP 

2657 1076 TAD Z A /A 

2660 4020 JMS Z PRXLOP 

2661 4323 JMS RSPACE /R SP 

2662 1055 TAD Z RITLNK 

2663 7440 SZA 

2664 5307 JMP LNONEX /RH LINK EQUALS A ONE 

2665 4302 JMS ZEROR 

2666 1102 ROIXX* TAD Z SP /SP 

2667 4020 JMS Z PRXLOP 

2670 1054 TAD Z RARRTR 

2671 3057 OCA Z PROUT 

2672 5216 JMP COUNPR /PRINT RARR TR CONTENTS 

2673 2465 FiNPRN, FINPR 

2674 2507 ROIXR, ROIX 

2675 2744 RTLPRX, RTLPR 



7h 



2676 


7240 


LNONE. 


CLA 1 


2677 


(^106 


AND Z 


ONE 


2im 


4020 


JMS Z 


PRXLOP 


2701 


5674 


JMP ! 


ROIXR 


2722 


P000 


ZEROR, 





2703 


7240 


CLA CMA 


2704 


P^105 


AND Z 


ZERO 


2705 


4020 


JMS Z 


PRXLOP 


2706 


5702 


JMP I 


ZEROR 


2707 


7200 


LNONEX. 


CLA 


2710 


1106 


TAD Z 


ONE 


2711 


4020 


JMS Z 


PRXLOP 


2712 


5266 


JMP ROlXX 


2713 


fi000 


RTCRLF. 





2714 


7200 


CLA 




2715 


4041 


JMS Z 


CRLF 


2716 


1075 


TAD Z 


R 


2717 


4020 


JMS Z 


PRXLOP 


2720 


1100 


TAD Z 


T 


2721 


4020 


JMS Z 


PRXLOP 


2722 


5713 


JMP I 


RTCRLF 


2723 


3333^.- 


„R SPACE, 


0_ 


2724 


7200 


CLA 




2725 


1075 


TAD Z 


R 


2726 


4020 


JMS Z 


PRXLOP 


2727 


1102 


TAD Z 


SP 


2730 


4020 


JMS Z 


PRXLOP 


2731 


5723 


JMP I 


RSPACE 



/PRINT LINK 



/PRINT LINK 



/CR LF 
/R 

/T 



/R 
/SP 
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^732 7200 R0T2PR, 



CLA 



;^733 


1275 


TAD 


RTLPRX 


^734 


3200 


DCA 


PATPR 


2735 


4313 


JMS 


RTCRLF 


2736 


4323 


JHS 


RSPACE 


2737 


1055 


TAD 


I RJTLNK 


2740 


7440 


S?A 




2741 


5307 


JMP 


LNONEX 


2742 


4302 


JMS 


ZEROR 


2743 


5266 


JMP 


ROlXX 


2744 


7200 


RTLPR, 


CL, 


2745 


1273 


TAD 


FINPRN 


2746 


3200 


DCA 


patpr 


2747 


4313 


JMS 


RTCRLF 


2750 


1077 


TAD 


Z L 


2751 


4020 


JMS 


i PRXLQP 


2752 


1102 


TAD 


Z SP 


2753 


4020 


JMS 


Z PRXLOP 


2754 


1053 


TAD 


Z LFTLNK 


2755 


7440 


SZA 




2756 


5276 


JMP 


LNONE 


2757 


4302 


JMS 


ZEROR 


2760 


5674 


JMP 


I ROIXR 


2761 


P1000 


PLINK 





2762 


1 140 


TAD 


Z LNKSTR 


2763 


4237 


JMS 


ONZER 


2764 


5761 


JMP 


I PLINK 



/CR LF RT 
/R SP 



/RIGHT LINK EQUALS A ONE 
/PRINT LINK 
/PRINT SP AND RARRTR CONTENTS 



/CR LF RT 
/L 

/SP 



/PRINT 1 LINK 
/PRINT LINK 



/PRINT PAT LINK 



9« 



(■^A 0076 K 0110 

ADD 0214 K0001 0073 

AODISM 0235 K000? 0072 

AISM 0244 K0010 0070 

ARGXXX 0640 K0020 0067 

ARITH 2150 K0040 0066 

ARITHT 0200 K0100 0065 

AXISM 0265 K0200 0064 

B 0114 K0400 0063 

HISM 0272 K1000 0062 

dlTSTR 0125 K2000 0061 

BWl 0117 K4000 0060 

CISM 0305 K7377 0141 

CL 0152 L 0077 

CLLINK 2111 LCOMP 4077 

CLRLNK 2015 LF 0103 

CWTR 0123 LFTLNK 0053 

CONHFD 0561 LINK 0134 

CONTX 2414 LIST 4200 

CONTXl 2445 LISTX 4015 

C0NTX2 2451 LNKSTR 0140 

C0NT1 2001 LNONF 2676 

CONT? 2075 LNONFR 2516 

COUNPR 2616 LNONFX 2707 

COUNT 0111 LPXX 0022 

COUNTX 0137 LRX 4122 

GOUNXX 2520 LRY 4123 

CR 0104 LSTBIT 2621 

CRLF 0041 .^ANYSP 0562 

Gm:f t F 002^S MCSSG 0-4-66 

CRY 0120 MINDFX 2631 

CX 0142 '^144 4014 

iNlBIT 0472 

CXM 4075 NOERR 0407 

CXN 4074 

U 0131 |;;OERX 4124 

ijISm 0502 ^ 0107 

tRiN 2415 UDEVFN 4017 

ERROR 0400 UNE 0106 

ERRSWl 2400 UNEP 2644 

tRRSW2 2406 ON^ER 2637 

ERSW 2416 P 0101 

ERSWIX 2115 PaDDOK 0312 

LRSWPX 2252 PaT 0051 

tRX 4076 PATPR 2600 

EX 2152 PaTPRX 2514 

tXl 2163 PLINK 2761 

FCOMP 4051 PRERR 0423 

FINPR 2465 PRHEAO 0521 

FINPRN 2673 PRINT 0416 

FINPRX 2453 PRONF 0506 

G 0130 PROUT 0057 

GENII 2000 PRSPaC 0512 

GENlXl 2446 PRXLOP 0020 

GEN2 2074 PRZERO 0504 

GEN2X2 2447 PTOTaL 0436 

HEADER 0124 PTIEX 2011 

HEQCON 0600 PTIEXX 2105 

HEURJ 0563 "^ ^^^5 

HSEKP 2116 f^ALRTL 0052 

INCR 0223 "^AND 4020 

INCRT 0415 •^ANDI 4030 

iNCRX 0224 ^ANO? 4000 
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Rarpr 


i650 


rtARPRX 


2454 


t-fARRTR 


0054 


HCNT 


4016 


REROTl 


2027 


KER0T2 


2207 


WITLNK 


0055 


RjHEn 


0625 


KOPR 


2455 


rtOTATE 


0336 


HOTOK 


2132 


ROTXl 


2444 


ROTX? 


2450 


KOTl 


2020 


ROTIPR 


2466 


K0T2 


2200 


R0T2PR 


2732 


rtOT2PX 


2515 


R0T2X 


2114 


ROIX 


2507 


ROIXR 


2674 


ROIXX 


2666 


RSPACE 


2723 


RTCRLF 


2713 


KTLPR 


2744 


HTLPRX 


2675 


SETLNK 


2072 


SL 


0150 


SP 


0102 


SPAC06 


0126 


SPACST 


0127 


SPA06 


0530 


S'pAl? 


0632 


STLNK 


2250 


STRCNT 


0112 


STRXY 


0225 


SUM 


0122 



SWOK 


2434 


SWOKXl 


2521 


SW0KX2 


2525 


SXOKXl 


2151 


SX0KX2 


2253 


SXY 


0414 


T. 


0100 


TOTAL 


0121 


TSTl 


0056 


TWELVE 


0626 


TWO 


0113 


TWORO 


2464 


TWOROX 


2452 


WOl 


0115 


WD2 


0116 


X 


0132 


XARG 


0135 


XFCOMP 


0337 


XONZFR 


0435 


XPROUT 


0074 


XSTRXY 


4047 


XTOTAL 


0451 


XZEROR 


0564 


Y 


0133 


YARG 


0136 


^?ERO 


0105 


ZEROR 


2702 


z^ERORX 


2517 








JU 



